home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / k11dat.mac < prev    next >
Encoding:
Text File  |  1989-06-12  |  7.6 KB  |  234 lines
  1.     .ident    /8.0.01/
  2.  
  3.  
  4.  
  5.     .if ndf, K11INC
  6.     .ift
  7.     .include    /IN:K11MAC.MAC/
  8.     .endc
  9.  
  10.  
  11.     .psect    usermd    ,rw,d,gbl,rel,con    ; force this psect into root
  12.     .psect    $rwdat    ,rw,d,gbl,rel,con
  13.  
  14. rwdata    ==    .
  15. getcro::.word    0
  16. tgetad::.word    0
  17. tmperr::.blkw    1
  18. procom::.blkw    1            ; /50/ If NE, force PROCOM
  19. pnhead::.blkw    1            ; /45/ listhead for phone numbers
  20. wasnul::.blkw    1            ; /45/ for ? processing in cmd line
  21. datauk::.blkw    1            ; /43/
  22. status::.blkw    1            ; /45/ Command status
  23. nowild::.blkw    1            ; /51/ SET RT11 [NO]WILDCARD
  24. concnt::.blkw    1            ; /51/
  25. srvdet::.blkw    1            ; /45/ SET SERVER DETACH
  26. srvpro::.blkw    1            ; /45/ SET SERVER [NO]DEDICATED
  27. exieof::.blkw    1            ; /45/ SET EOF [NO]EXIT
  28. jobtyp::.blkw    1            ; /45/ 0 for interactive, 1 for batch
  29. procty::.blkw    1            ; /45/ See K11MAC.MAC
  30. con$ds::.blkw    1            ; /44/ Addr(connect code to execute)
  31. logapp::.blkw    1            ; /41/ if ne then append to logfiles
  32. infoms::.blkw    1            ; /41/ always disply info msgs if NE
  33. dotran::.blkw    1            ; /41/ Do TLON$S on KERMIT$LINEn if NE
  34. exstac::.blkw    1            ; /41/ Exit status
  35. exstal::.blkw    1            ; /41/ Exit line
  36. recbit::.blkw    1            ; /43/ Find out if parity was on
  37. dpnumb::.blkw    2            ; /43/ Number of data packet
  38. mcrind::.blkw    1            ; /41/ Invocation was KER @filename
  39. exireq::.blkw    1            ; /41/ Somebody requested program exit
  40. logreq::.blkw    1            ; /41/ Someone  requested REMOTE logout
  41. phnum::    .word    0            ; /40/ Filled in at startup
  42. logstr::.blkb    40            ; /41/ Logout string for remote
  43. diatmo::.blkw    1            ; /46/ SET DIAL TIMEOUT n
  44. dialmo::.blkw    1            ; /41/
  45. prompt::.blkb    40
  46. blip::    .blkw    1            ; if zero, no blips, else mod for blips
  47. kbiost::.blkw    2            ; for RSXM/M+ terminal io status
  48. brklen::.blkw    1            ; for XC/XL on RT11, BREAK length
  49. altcon::.blkw    1            ; for RSXM/M+ connect code type
  50. notatt::.blkw    1            ; if <>, server is running detached
  51. sensop::.blkw    1            ; if SOH changed (set send)
  52. recsop::.blkw    1            ; if SOH changed (set receive)
  53. argpnt::.blkw    1
  54. vttype::.blkw    1            ; the vttypeal type
  55. tcdlu::    .blkw    1            ; perhaps change setting of tc.dlu
  56. chario::.blkw    1            ; perhaps do rsx packet reads by char
  57. proflg::.blkw    1            ; if a pro/350 (?)
  58. tsxflg::.blkw    1            ; tsx
  59. tsxcl::    .blkw    1            ; tsx and cl:
  60. logini::.blkw    1
  61. consts::.blkw    2            ; for the connect command for RSX
  62. tists::    .blkw    2            ; for the connect command for RSX
  63. mcrcmd::.blkw    1            ; if <>, then we got a mcr/ccl cmd line
  64. filpro::.blkw    1            ; if <>, then do not supercede files
  65. binmod::.blkw    1            ; for RSTS, something is open mode 1
  66. sy.ini::.blkw    1            ; for KERMIT.INI stuff
  67. handch::.blkw    1            ; for ibm systems ?
  68. duplex::.blkw    1            ; if eq, full (default), else half
  69. sparsz::.blkw    1            ; size of our sinit packet
  70. chksiz::.blkw    1            ; current checksum size in bytes
  71. chktyp::.blkw    1            ; the current checksum type
  72. maxtry::.blkw    1            ; maximum number of retries
  73. conesc::.blkw    1            ; escape character for connection
  74. sertim::.blkw    1            ; timeout waiting for server cmd
  75. serwai::.blkw    1            ; from SET SERVER [NO]TIME value
  76. inserv::.blkw    1            ; currently we are a server
  77. ranerr::.blkw    1            ; generate random checksum errors if ne
  78. seed::
  79. testc::    .blkw    1            ; for debugging
  80. skipfl::.blkw    1            ; should we send a EOF DISCARD packet
  81. parity::.blkw    1            ; save parity setting for SHOW command
  82. logfil::.blkb    40            ; a log filename for the  SHOW command
  83. cccnt::    .blkw    1            ; number of control C's so far
  84. doauto::.blkw    1            ; if <>, then do auto binary (default)
  85. senwin::.blkw    1            ; /42/
  86. recwin::.blkw    1            ; /42/
  87. reclng::.blkw    1            ; /42/ Max size I can read
  88. senlng::.blkw    1            ; /42/ Max size I am allowed to send
  89. dolong::.blkw    1            ; /42/ if <>, then do long packets
  90. doslid::.blkw    1            ; /42/ if <>, then do sliding windows
  91.  
  92. oldatt::.blkw    1            ; /49/ If in old (incorrect) format
  93. doattr::                ; /42/ Syn for setdat
  94. sendat::.blkw    1            ; if zero, NEVER send attribute packets
  95. sendly::.blkw    1            ; wait before sending SINIT
  96. pauset::.blkw    1            ; wait before sending a packet
  97. oldpau::.blkw    1            ; save the old time for pausing
  98. outlun::.blkw    1            ; zero for TI else lun.ou
  99. cmdlun::.blkw    1            ; current command file lun
  100. cmdadr::.blkw    1            ; saved address of command routine
  101. cmdnum::.blkw    1            ; index into the current command list
  102. cmdbuf::.blkw    1            ; /53/ Pointer to 80 byte command buffer
  103. argbuf::.blkw    1            ; /53/ Pinter for reading args 
  104. hlptop::
  105. index::    .word    0            ; index into directory
  106. modem::    .blkb    40            ; /37/ modem type
  107. ttname::.blkb    20            ; our current terminal link name
  108. ttdial::.blkb    20            ; save the remote name here
  109. ttcons::.blkb    20            ; our console name for virtual tty
  110. trace::    .blkw    1            ; for file and packet logging
  111. debug::    .blkw    1            ; console debugging
  112. sermod::.blkw    1            ; if we are currently a server
  113. con8bi::.blkw    1            ; if we pass eight bits to console
  114.  
  115. ;    statistics
  116.  
  117. reccnt::.blkw    2            ; total received count
  118. sencnt::.blkw    2            ; total sent count
  119. pcnt.r::.blkw    2*34            ; packet count by type for RPACK
  120. pcnt.s::.blkw    2*34            ; packet count by type for SPACK
  121. pcnt.n::.blkw    2            ; /43/ NAK count
  122. pcnt.t::.blkw    2            ; /44/ Timeout count
  123. charou::.blkw    2            ; /43/ File data out
  124. charin::.blkw    2            ; /43/ Data in
  125. filein::.blkw    2            ; /43/ File data in
  126. fileou::.blkw    2            ; /43/ File data out
  127. times::    .blkw    10            ; /43/ Time stamp
  128. msgtim::.blkw    1            ; /43/ Message warning flag
  129.  
  130. ;    attribute data
  131.  
  132. atrctx::.blkw    1            ; context for attribute packets
  133.  
  134. ;    connection parameters
  135.  
  136. senpar::.blkb    20            ; remotes connection parameters
  137. conpar::
  138. recpar::.blkb    20            ; our connection parameters
  139. setsen::.blkb    20            ; we may override the default
  140. setrec::.blkb    20            ; save for receive parameters
  141.  
  142. image::    .blkw    1            ; if in image mode
  143. $image::.blkw    1            ; save image flag for autobyte
  144. numtry::.blkw    1            ; number of retrys
  145. oldtry::.blkw    1            ; old value of numtry
  146. paknum::.blkw    1            ; current packet number mod 64
  147. remote::.blkw    1            ; if <> then we are remote
  148. state::    .blkw    1            ; current state
  149. linkst::.blkw    1            ; if <> then a link is active
  150. outopn::.blkw    1            ; did recsw ever create anything
  151. inopn::    .blkw    1            ; did sendsw ever open  anything
  152. size::    .blkw    1            ; size of last call to bufferfill
  153. xgottn::.blkw    1            ; got an xpacket in server
  154. xmode::    .blkw    1            ; if <> then doing text output to ti:
  155. do8bit::.blkw    1            ; if <> then doing 8 bit prefixing
  156. snd8bi::.blkw    1
  157. set8bi::.blkw    1            ; if <> then set bit seven on character
  158. ebquot::.blkw    1            ; if doing 8 bit prefixing, this is it
  159. dorpt::    .blkw    1            ; if <>, then do repeat count crap
  160. rptquo::.blkw    1            ; the char to use for repeat ('~')
  161. rptcou::.blkw    1
  162. rptsav::.blkw    1
  163. rptlas::.blkw    1
  164. rptini::.blkw    1
  165. setrpt::.blkw    1
  166. errtxt::.blkb    102            ; a buffer for SYSERR(errnum,buffer)
  167. rtwork::.blkw    10            ; for RT11 exec calls
  168. rtflow::                ; for PRO/RT11 XC: interface
  169. conflo::.blkw    1            ; for RT11 connect flow control
  170. rtvol::    .blkw    1
  171.  
  172.  
  173.  
  174. ;    attributes
  175.  
  176. at$len::.blkw    1
  177. at$typ::.blkw    1
  178. at$cre::.blkw    1
  179. at$id::    .blkw    1
  180. at$bil::.blkw    1
  181. at$are::.blkw    1
  182. at$pas::.blkw    1
  183. at$bsi::.blkw    1
  184. at$acc::.blkw    1
  185. at$enc::.blkw    1
  186. at$dis::.blkw    1
  187. at$pr0::.blkw    1
  188. at$pr1::.blkw    1
  189. at$sys::.blkw    2
  190. at$for::.blkw    1
  191. at$fab::.blkw    15
  192. at$val::.blkw    1
  193. at$klu::.blkw    4            ; /54/ Creation date in 'Kluncks'
  194. at$cdt::.blkw    1
  195. at$xle::.blkw    1            ; /61
  196.  
  197. albuff::.word    0            ; /51/ Filled in at startup
  198.  
  199. binset::.blkw    1
  200. lastcn::.blkw    1            ; /52/ Filled in
  201. lastli::.blkw    LN$ALL+1        ; /52/ Filled in at startup
  202. prexon::.blkw    1            ; /53/ Prefix packets with XON if ne
  203. k11$mu::.blkw    1
  204. k11$di::.blkw    1
  205.  
  206. rawfil::.blkw    1            ; /54/ SET FILE NAMING option
  207. pulse::    .blkw    1            ; /54/ SET PHONE PULSE/TONE
  208. blind::    .blkw    1            ; /54/ SET PHONE BLIND_DIALING
  209. rdrate::.blkw    4            ; /56/ Exec I/O stats
  210. recdlm::.blkw    1            ; /56/ Record delimiter (cr,lf,...)
  211. rsx32::    .blkw    1            ; /56/ Flag M3.2
  212. incpar::.blkw    1            ; /56/ Parity was found
  213. doallo::.blkw    1            ; /58/ Device allocation flag
  214.     .word    0
  215.  
  216. rwend    ==    .
  217. rwsize    ==    rwend-rwdata
  218.     .blkw    1
  219.  
  220. edicmd::.word    -1
  221. edilen::.word    0
  222. edipos::.word    0
  223. edists::.word    0
  224. $encke::
  225. $decke::
  226. edikey::.word    0
  227. edisiz::.word    LN$MAX
  228.  
  229. stklim::.blkw    510+<maxlng/2>        ; /42/ Extra packet buffering
  230. stack::
  231.     .blkw    1
  232.  
  233.     .end
  234.